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1 PRINT"THIS IS A GAME OF ROULETTE. YOU HAVE 100 CHIPS TO START** 

2 PRINT "WITH WHICH YOU CAN BET. YOU CAN ONLY BET THREE TIMES” 

3 PRINT”FOR EVERY SPIN OF THE WHEEL .YOU CAN BET ON ANY NUMBER” 

4 PRINT ”FROM 0 TO 20.” 

5 PRINT "PLEASE TYPE THE TIME IN HOURS MINUTES AND SECONDS TO ” 

6 PRINT "SET UP A RANDOM GENERATOR IN THE FORM H*M*S") 


7 

INPUT Z 1 * Z2* Z3 


22 

LET M1=1 


23 

LET M2=1 


24 

LET M3= 1 


29 

PRINT 


30 

LET L=!00 


31 

LET H=0 


32 

LET 1=0 


33 

LET J=0 


35 

LET C= 3 


36 

LET Bl=21 


37 

LET B2=21 


38 

LET B3=21 


39 

LET B4=21 


40 

LET D1=21 


41 

LET D2=21 


42 

LET D3= 21 


43 

LET D4=21 


44 

LET El=21 

1 ' 

45 

LET E2=21 


46 

LET E3=21 


47 

LET E4=21 


48 

LET N1=0 


49 

LET N2=0 


50 

LET N3=0 


56 

PRINT 


60 

PRINT "HOW MANY CHIPS DO YOU 

WANT 

75 

IF C=3 THEN 1450 


77 

PRINT 


85 

IF C=2 THEN 1460 


87 

PRINT 


90 

IF C=1 THEN 1479 


92 

PRINT 


1 1 4 

PRINT 


1 1 5 

PRINT "HOW MANY NUMBERS (1*2* 

OR 4) 

117 

PRINT "ONE BET(PICK ONLY ONE) 

•« 

120 

INPUT A 


121 

PRINT 


122 

PRINT 


125 

IF A=1 THEN160 


130 

IF A=2 THEN 230 


135 

IF A=4 THEN 280 


1 40 

PRINT "PLEASE THINK AGAIN* YOU CAN 

145 

GO TO 115 


160 

PRINT "YOUR ODDS ARE 20 TO 1* 

WHAT 

161 

PRINT 


162 

PRINT 


165 

IF C*3 THEN 1200 


170 

IF C=2 THEN 1210 


175 

IF C=1 THEN 1220 


195 

IF C=3 THEN 1300 


205 

IF C=2 THEN 1310 


21 5 

IF C=1 THEN 1320 


216 

GO TO 325 




229 PRINT 


230 

PRINT 

"YOUR 

ODDS 

ARE 

10 TO 1* WHAT ARE YOUR 2 NUMBERS"; 

231 

PRINT 





232 

PRINT 





235 

IF C=3 

THEN 

1330 



240 

IF C=2 

THEN 

1340 



245 

IF C= 1 

THEN 

1350 



2 50 

IF C= 3 

THEN 

1360 



255 

IF C=2 

THEN 

1370 



270 

IF C=1 

THEN 

1380 



27 5 

GO TO 

325 




280 

PRINT ' 

"YOUR 

ODDS 

ARE 

5 TO 1* WHAT ARE YOUR FOUR NUMBERS"; 

281 

PRINT 





282 

PRINT 





285 

IF C= 3 

THEN 

1390 



290 

IF C=2 

THEN 

1 400 



295 

IF C=1 

THEN 

1 410 



310 

IF C=3 

THEN 

1 420 



31 5 

IF C=2 

THEN 

1 430 


■.-i' -te" 

320 

IF C= 1 

THEN 

1 440 




325 LET K=<H*20/M1>+(I*20/M2>+<J*20/M3> 

328 IF L-K<0 THEN 910 

350 LET C=C-1 

360 IF C=0 THEN 415 

369 PRINT 

370 PRINT "DO YOU WANT TO PLACE ANY MORE BETS BEFORE THE WHEEL” 

371 PRINT ’’SPINS (TYPE 1 FOR YES* 0 FOR NO>"; 

380 INPUT F 

381 PRINT 

382 PRINT 

383 PRINT 

385 IF F-l THEN 60 

390 PRINT ’’YOU BETTED”;K;"CHIPS* YOU HAVE";L-K; ’’CHIPS LEFT” 

391 PRINT - 

392 PRINT 

400 LET G1 = INT(20*RND< 1 >> 

401 LET G2=INT((Z2+Z35/6) 

402 LET G=INT<(G1+G2J/2) 

410 GO TO 420 

415 PRINT ’’YOU HAVE NOW COMPLETED YOUR THREE BETS" 

420 PRINT "NOW THE ROULETTE WHEEL WILL SPIN” 

421 PRINT 

422 PRINT 

423 PRINT 

440 PRINT "THE NUMBER IS ”1G 

570 IF (G-Bl>*<G-B2)*<G-B3)*(G-B4>=0 THEN 630 
580 IF <G-D1>*CG-D2>*(G-D3)*<G-D4>=0 THEN 635 

590 IF (G-El)*<G“E2)*CG-E3>*<G-E4)=0 THEN 640 

591 IF Nl+N2+N3>0 THEN 645 

592 PRINT 

593 PRINT 

600 PRINT ”1 AM SORRY* YOU PICKED THE WRONG NUMBERS” 

605 LET L=L-K 


2 




" ’ '"v 

606 PRINT 

* 610 PRINT "YOU NOW HAVE"!LJ"CHIPS LEFT” 

**615 GO TO 680 
630 LET N1=M1*H 
632 GO TO 580 
635 LET N2*M2*I 
637 GO TO 590 
640 LET N3=M3*J 
645 LET P=N1+N2+N3 

650 LET L=L+P-K 

651 PRINT 

652 PRINT 

660 PRINT "CONGRATULATIONS* YOU HAVE WON”!P!"CHIPS” 

661 PRINT 

670 PRINT "YOU NOW HAVE"!Li"CHIPS" 

671 PRINT 

672 PRINT 

680 PRINT "WANNA PLAY SOME MORE????(TYPE 1 FOR YES 0 FOR NO>"! 

685 INPUT Q 

695 IF Q=1 THEN 31 

900 STOP 

910 PRINT "CHEATER YOU HAVE BETTED MORE CHIPS THAN YOU OWN.” 

912 PRINT "THE CASINO TAKES ALL AND SENDS YOU AWAY. GOOD RIDDENS” 

915 PRINT "BYE” 

920 GO TO 1600 
1200 INPUT B1 
1205 GO TO 170 
1210 INPUT D1 
1215 GO TO 175 
1220 INPUT El 
1225 GO TO 195 
1300 LET Ml *20 
1305 GO TO 205 
1310 LET M2 *20 
1315 GO TO 215 
1320 LET M3=20 
1325 GO TO 216 
1330 INPUT B1.B2 
1335 GO TO 240 
1340 INPUT Dl# D2 
1345 GO TO 245 
1350 INPUT El * E2 
1355 GO TO 250 
1360 LET M1* 10 
1365 GO TO 255 
1370 LET M2*10 
1375 GO TO 270 
1380 LET M3=10 
1385 GO TO 275 
1390 INPUT B1*B2*B3*B4 
1395 GO TO 290 
1400 INPUT D1*D2#D3*D4 
1405 GO TO 295 
1 410 INPUT E1#E2*E3*E4 
1415 GO TO 310 
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1 420 

LET Ml 

= 5 

1 425 

GOTO 315 

1 430 

LET M2 

= 5 

1 435 

GO TO 

320 

1 440 

LET M3= 5 

1 445 

GO TO 

325 

1 450 

INPUT 

H 

1 455 

GO TO 

85 

1 460 

INPUT 

I 

1 465 

GO TO 

90 

1 479 

INPUT 

J 

1 480 

GO TO 

115 

1 600 

END 


READY 
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